home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / convert.l < prev    next >
Text File  |  2007-02-28  |  1KB  |  55 lines
  1. 9000 PROC CONVERT(AN,REF ALPH$,REF NUMB) CLOSED
  2. 9010 Z:=ZONE
  3. 9020 ZONE 0
  4. 9030 DIM OLD$ OF 12
  5. 9040 ROW:=PEEK(214); COL:=PEEK(211)
  6. 9050 PC:=PEEK(646) //CURRENT PENCOLOR
  7. 9060 BC:=PEEK(53281)-240
  8. 9070 PENCOLOR BC
  9. 9080 PRINT CHR$(19),
  10. 9090 OPEN FILE 126,"",UNIT 3,READ
  11. 9100 INPUT FILE 126: OLD$
  12. 9110 CLOSE FILE 126
  13. 9120 PRINT "            ",
  14. 9130 CASE AN OF
  15. 9140 WHEN 1
  16. 9150 IF ALPH$="" THEN
  17. 9160 ALPH$:="NV"
  18. 9170 ELSE 
  19. 9180 PRINT ALPH$,
  20. 9190 ENDIF 
  21. 9200 WHEN 2
  22. 9210 PRINT NUMB,
  23. 9220 WHEN 3
  24. 9230 IF NUMB>=0 AND NUMB<=255 THEN
  25. 9240 PRINT CHR$(NUMB),
  26. 9250 ELSE 
  27. 9260 ALPH$:="NV"
  28. 9270 ENDIF 
  29. 9280 OTHERWISE 
  30. 9290 ALPH$:="NV"
  31. 9300 ENDCASE 
  32. 9310 IF ALPH$<>"NV" THEN
  33. 9320 PULL'SCREEN(AN,ALPH$,NUMB)
  34. 9330 ENDIF 
  35. 9340 PENCOLOR PC
  36. 9350 PRINT "",OLD$
  37. 9360 POKE 214,ROW
  38. 9370 POKE 209,(1024+ROW*40) MOD 256
  39. 9380 POKE 210,(1024+ROW*40) DIV 256
  40. 9390 POKE 211,COL
  41. 9400 ZONE Z
  42. 9410 ENDPROC CONVERT
  43. 9420 //
  44. 9430 PROC PULL'SCREEN(AN,REF ALPHA$,REF NUMBER) CLOSED
  45. 9440 PRINT CHR$(19),
  46. 9450 OPEN FILE 93,"",UNIT 3,READ
  47. 9460 CASE AN OF
  48. 9470 WHEN 1
  49. 9480 INPUT FILE 93: NUMBER
  50. 9490 WHEN 2,3
  51. 9500 INPUT FILE 93: ALPHA$
  52. 9510 ENDCASE 
  53. 9520 CLOSE FILE 93
  54. 9530 ENDPROC PULL'SCREEN
  55.